﻿
Public Class V_Socios_en_Sobre_TableAdapter
    Inherits DSEATableAdapters.V_Socios_en_SobreTableAdapter

    Public Sub Guardar_Datos(ByVal DT_Socio_Sobre As DSEA.V_Socios_en_SobreDataTable, ByVal Sobre As Integer)
        Dim TA_Socios_permisos As New DSEATableAdapters.Sobres_PermisosTableAdapter
        Dim DT_Socios_Permisos As New DSEA.Sobres_PermisosDataTable
        Try
            TA_Socios_permisos.Fill(DT_Socios_Permisos)

            For Each DR As DSEA.V_Socios_en_SobreRow In DT_Socio_Sobre
                Dim DR_Aux As DSEA.Sobres_PermisosRow = DT_Socios_Permisos.FindBySobreSocio(Sobre, DR.ID)
                If DR.Activo = -1 AndAlso DR_Aux Is Nothing Then
                    Dim DR_Sobre_Permisos As DSEA.Sobres_PermisosRow = DT_Socios_Permisos.NewSobres_PermisosRow

                    DR_Sobre_Permisos.Sobre = Sobre
                    DR_Sobre_Permisos.Socio = DR.ID()

                    DT_Socios_Permisos.AddSobres_PermisosRow(DR_Sobre_Permisos)

                ElseIf DR.Activo = 0 AndAlso Not DR_Aux Is Nothing Then
                    DT_Socios_Permisos.FindBySobreSocio(Sobre, DR.ID).Delete()
                End If
            Next

            TA_Socios_permisos.Update(DT_Socios_Permisos)
        Catch ex As Exception
            Debug.Print(ex.Message)
        End Try
    End Sub
End Class
